home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / prog / mui / muirexx2.2 / demos / muirexxbuild / build.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-07  |  8KB  |  134 lines
  1. /* A MUIRexx application for building MUIRexx Applications */
  2. options results
  3.  
  4. /* Method TAG ID definitions */
  5.  
  6. List_InsertSingle = 0x804254d5 /*               { ULONG MethodID; APTR entry; LONG pos; }; */
  7. Application_OpenConfigWindow = 0x804299ba /*    { ULONG MethodID; ULONG flags; }; */
  8.  
  9. /* Attribute TAG ID definitions */
  10.  
  11. Draggable =                       0x80420b6e /* V11 isg BOOL              */
  12. Dropable =                        0x8042fbce /* V11 isg BOOL              */
  13. Group_Columns =                   0x8042f416 /* V4  is. LONG              */
  14. Listview_DragType =               0x80425cd3 /* V11 isg LONG              */
  15. Listview_MultiSelect =            0x80427e08
  16. List_DragSortable =               0x80426099 /* V11 isg BOOL              */
  17. List_ShowDropMarks =              0x8042c6f3 /* V11 isg BOOL              */
  18. Menuitem_Shortcut =               0x80422030 /* V8  isg STRPTR            */
  19. Menuitem_Title =                  0x804218be /* V8  isg STRPTR            */
  20. Weight =                          0x80421d1f /* V4  i.. WORD              */
  21.  
  22. /* TAG variable definitions */
  23.  
  24. TRUE = 1
  25. FALSE = 0
  26. Listview_DragType_Immediate = 1
  27. Listview_MultiSelect_Shifted = 2
  28. List_GetEntry_Active = -1
  29. List_Insert_Active = -1
  30. List_Insert_Bottom = -3
  31.  
  32. address command "assign build: MUIRexx:demos/MUIRexxBuild"
  33.  
  34. address BUILD
  35.  
  36. window ID BWIN TITLE """MUIRexx GUI Builder""" COMMAND """quit""" PORT BUILD
  37.     menu LABEL """Project"""
  38.         item COMMAND """build:about""" ATTRS Menuitem_Shortcut 'A' LABEL """About"""
  39.         item ATTRS Menuitem_Title '-1'
  40.         menu LABEL '"Settings"'
  41.             item COMMAND '"method 'Application_OpenConfigWindow'"' PORT BUILD LABEL '"MUI..."'
  42.         endmenu
  43.         item ATTRS Menuitem_Title '-1'
  44.         item COMMAND """build:comm SAVE""" ATTRS Menuitem_Shortcut 'S' LABEL """Save"""
  45.         item COMMAND """build:comm SAVEAS""" ATTRS Menuitem_Shortcut 'W' LABEL """Save as..."""
  46.         item COMMAND """build:comm READ""" ATTRS Menuitem_Shortcut 'R' LABEL """Read"""
  47.         item ATTRS Menuitem_Title "-1"
  48.         item COMMAND """quit""" PORT BUILD ATTRS Menuitem_Shortcut 'Q' LABEL """Quit"""
  49.     endmenu
  50.     group
  51.         group HORIZ
  52.             group ATTRS Weight 0
  53.                 group HORIZ
  54.                     label DOUBLE "Port:"
  55.                     string ID APRT CONTENT "TEST"
  56.                 endgroup
  57.                 group HORIZ FRAME LABEL "containers"
  58.                     button ATTRS Draggable TRUE NODE "window" LABEL "window"
  59.                     button ATTRS Draggable TRUE NODE "group" LABEL "group"
  60.                     button ATTRS Draggable TRUE NODE "menu" LABEL "menu"
  61.                     button ATTRS Draggable TRUE LABEL "do"
  62.                 endgroup
  63.                 group FRAME ATTRS Group_Columns 3 LABEL "objects"
  64.                     button ATTRS Draggable TRUE NODE "item" LABEL "item"
  65.                     button ATTRS Draggable TRUE NODE "space" LABEL "space"
  66.                     button ATTRS Draggable TRUE NODE "label" LABEL "label"
  67.                     button ATTRS Draggable TRUE NODE "view" LABEL "view"
  68.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "gauge" LABEL "gauge"
  69.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "meter" LABEL "meter"
  70.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "button" LABEL "button"
  71.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "text" LABEL "text"
  72.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "switch" LABEL "switch"
  73.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "image" LABEL "image"
  74.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "check" LABEL "check"
  75.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "cycle" LABEL "cycle"
  76.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "radio" LABEL "radio"
  77.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "string" LABEL "string"
  78.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popasl" LABEL "popasl"
  79.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "poplist" LABEL "poplist"
  80.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "slider" LABEL "slider"
  81.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popslider" LABEL "popslider"
  82.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "knob" LABEL "knob"
  83.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "list" LABEL "list"
  84.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "dirlist" LABEL "dirlist"
  85.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "volumelist" LABEL "volumelist"
  86.                     button ATTRS Draggable TRUE NODE "object" LABEL "object"
  87.                     button ATTRS Draggable TRUE LABEL
  88.                 endgroup
  89.                 group HORIZ FRAME LABEL "miscellaneous"
  90.                     button ATTRS Draggable TRUE NODE "application" LABEL "application"
  91.                     button ATTRS Draggable TRUE NODE "method" LABEL "method"
  92.                 endgroup
  93.                 space
  94.             endgroup
  95.             group REGISTER LABELS """Commands,Variables"""
  96.                 group
  97.                     list ID DLST DROP COMMAND """build:drop_object %s""",
  98.                         HELP """Drag and drop an object to create.\nDouble click on object to edit.\nClick on other object to change.""",
  99.                         ATTRS Listview_DragType Listview_DragType_Immediate,
  100.                               Listview_MultiSelect Listview_MultiSelect_Shifted,
  101.                               List_DragSortable TRUE
  102.                     group HORIZ
  103.                         button COMMAND """build:comm LEFT""" LABEL "<-"
  104.                         button COMMAND """build:comm RIGHT""" LABEL "->"
  105.                         button COMMAND """build:comm COPY""" LABEL "Copy"
  106.                         button COMMAND """list ID DLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  107.                     endgroup
  108.                     group HORIZ
  109.                         button COMMAND """build:comm CREATE""" LABEL "Create"
  110.                         button COMMAND """build:comm CLOSE""" LABEL "Close"
  111.                         button COMMAND """build:comm NEW""" LABEL "New"
  112.                     endgroup
  113.                 endgroup
  114.                 group
  115.                     list ID VLST DROP COMMAND """build:attrs VADD %s""",
  116.                         HELP """Drag and drop a variable name to define."""
  117.                     string ID VSTR COMMAND """list ID VLST INSERT POS "List_Insert_Bottom" NODUP STRING %s""" PORT BUILD
  118.                     group HORIZ
  119.                         button COMMAND """build:attrs LIST""" LABEL "Attribute List"
  120.                         button COMMAND """build:attrs VLIST""" LABEL "Variable List"
  121.                     endgroup
  122.                     group HORIZ
  123.                         button COMMAND """list ID VLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  124.                     endgroup
  125.                 endgroup
  126.             endgroup
  127.         endgroup
  128.     endgroup
  129. endwindow
  130. list ID DLST PRESS COMMAND """build:ask_object %s"""
  131. list ID VLST PRESS COMMAND """string ID VSTR CONTENT %s""" PORT BUILD
  132. setvar directory 'build:test'
  133. exit
  134.